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MODULE symbols (IDENT = 'V04-000') = 
BEGIN 
' 
leuneeueeeeeeanneceeenenneeencerecerenteerereeetrersnnenntenenentneteneneetns 
‘@ « 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
is ALL RIGHTS RESERVED. ° 
ie THIS SOF TWARE 1S FURNISHED UNDER A LICENSE AND MAY BE E USED A AND COPIED * 
ie ONLY ACCORDANCE WITH THE TERME F SUCH LICEN D WITH THE ®* 
ie INCLU Ton OF THE ABOVE COPYRIGHT NOTICE. THIS SOF GARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
is TRANSFERRED. * 
. * 
“e THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SH oul D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORA TION. e 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
ie * 
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; FACILITY: Command language editor 

ABSTRACT: 

i This facility is used to enhance the command Language 
i and allow user-written commands to be available he 
Language. 

ENVIRONMENT: 

VAX/VMS operating system. unprivileged user mode, 
AUTHOR: Tim Halvorsen, Feb 1980 

Modified by: 

v03-001 DAS0001 David Solomon 03-Jul-1984 

i 
i 
i 
i 
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Return success if trying to add a duplicate symbol (SPR 55578). 
vo0o2 DWT0006 David W. Thiel 10-Dec-1981 

Fix find_record to fail if asked for (n+1)st record. 
vo01 TMHOO01 Tim Halvorsen 28-Mar-1981 


Cleer upper word of descriptor passed to scan_symbols 
action routine, in case it uses the entire lofgword as 
the Length rather than the lower word. 
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Include files 


LIBRARY ‘"SYSSLIBRARY:STARLET'; ! VAX/VMS common definitions 
‘ REQUIRE ‘SRCS:CLEDEF'; ! Utility definitions 


! 
: Require file for all modules in the command Language editor 
i IDENT vO2-001 


' 
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'® 

'® COPYRIGHT (c) 1978, 1980, 1982 B 

ie DIGITAL EQUIPMENT ¢ ORPORATION, MAYNARD, MASSACHUSETTS. 

* ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS ge) UNDER A LICENSE AND | BE USED AND COPIED 

'@ ONLY IN ACCORDANCE WITH THE TERMS OF ontt” bCENSe ta weve H_THE 

'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 0 OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
« 
* 
+ 
* 
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* 
* 
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+ 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBIL 
ie SOFTWARE ON EQUIPMENT WHICH IS 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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NOT SUPPLIED BY DIGITAL. 
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FACILITY: Command Language editor 
i ABSTRACT: 


This is the common require file for all modules in the 
command language editor. 


i ENVIRONMENT: 


i 
4 
t 
J 
1 
‘ 
‘ 
: VAX/VMS operating ¢ gh wmortytioged user mode utility, 
; operates at non-AST leve 

t 
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i AUTHOR: Tim Halvorsen, Feb 1980 
i MODIFIED BY: 
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- REQUIRE "LIBS:UTILDEF'; ! Commonly used BLISS definitions 


] 
: Commonly used definitions for VMS modules written in BLISS 
Version 'v03-000' 
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ie COPYRIGHT (c) 1978, 1980, 1982 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
Y IN ACCORDANCE WITH THE TERMS OF SUCH LIC 

'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH T OR ANY OTHER 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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USED AND COPI . 
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tw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY : 
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* 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ eRPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


tt DIGITAL ASSUMES NO RESPONSIBIL 
CH IS NOT SUPPLIED BY DIGITAL. 
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This is the common require file for any module written 
in BLISS 
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: ENVIRONMENT: 
VAX/VMS operating system. 
AUTHOR: Tim Halvorsen, Feb 1980 
MODIFIED BY: 
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14-Sep- 
' 
; Macro to or a function (f) of the message seyerity seve that 
; maps the various sever ty levels such that arithmetic comparisions of the 
H nepped values ( f(severity) ) yield a order of precedence that is 
; intuivitvely acceptable: 
' 
: ERROR NAME OLDVAL NEWVAL 
; F (SUCCESS) --> 
: F (INFORMATIONAL) --> 
: F (WARNING) --> 
H F (ERROR) --> 
: F (SEVERE ERROR) --> 


MACRO 
sever tty level (status) = 
EG 


LOCAL code: BBLOCK CLONG); 
code = status; 
gcoge Csts$v_severity] - (4 * .code Csts$v_success]) + 3 


MACRO 
cl iSezpornel (previ) = 
ZIF XDECLARED(ZQUOTE ZXQUOTE cl iSpretix) 
ZTHEN YNDECLARS ZQUOTE ZQUOTE cliS$prefix; %FI 
MACRO gl vSecet x = prefix ZQUOTE 2; 
ae L —_ 
cliS$external_loop(ZREMAINING)2, 


cli$external joop(oene: = 
ZNAME (c LTSprefix,name): UNSIGNED(8)%; 
MACRO 
Sexternal_literal(symbol) = 


ZIF NOT ZDECLARED(symbol) ZTHEN EXTERNAL LITERAL symbol 
ZIF ZLENGTH GTR 1 ZTHEN : ZREMAINING ZFI; ZF 1 


symbol 
END2; 
MACRO 
S$fab_devidev_bit) = ! Access FABSL_DEV bits of FAB block 
SBYTEOFFSET(fabSt dev), 
$BITPOSITION(CZNAME('dev$v_",dev_bit)),1,0%; 


SSHR_MESSAGES = a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( name, code, (msg,severity), ... ) 
where: 


‘name"’ is the name of the facility (e.g., COPY) 
“code’"’ is the corresponding facility code (e.g., 103) 
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"msg'' is fhe mame of the shared message (e.g., vem, te 
severity’ S the desired message severity ‘(e.g 


5 


0, 2) 


wi 


wr 


MAC 
Tes crreRaces< FACILITY_NAME, FACILITY_CODE ) = 


CARERS, IDS( FACILITY_NAME, FACILITY_CODE, ZREMAINING ); %, 


wr 
=z 


a a a 8 st 


9 SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE) C VALUE ) = 
4 3% SHRSMSG_CALC( FACILITY.NAME, FACILITY. CODE, ZREMOVE(VALUE) ) &, 
a 3 SHRSMSG CALC( FACILITY NAME, FAC IW. CODE, MSG_ID, SEVERITY ) = 
m 0295 TNARE (FA ILITY oS fm = NARE ( ; SARS_* .MSG_ 1D) + FACILITY _CODE*65536 + 
8 x % IF XDECLARED (2NAME ( TSS." SEV VERIT 
# 029 THEN SNAME('STSS$K + “SEV at 
98 ZELSE SEVERITY XFI7% 
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! CLI command table definitions 
Command Language interpreter command table structures 
v03-003 
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COPYRIGHT (c) 1978, 1980, 1982 BY 
DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


oe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 


as eeene 


Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


* 
* 
NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
od hy ae MAY NOT BE PROVIDED GR OTHERWISE MADE AVAILABLE TO ANY : 


PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


OTHE 
TRANSFERRED. . 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
rr a 4 a4 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
af 
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FACILITY: DCL & MCR Command Language interpreters 


+ ABSTRACT: 


These are the command ta te structure definitions 


which describe the generic command table format used 


by the DCL and MCR command interpreters. 


i ENVIRONMENT : 


VAX/VMS operating system. supervisor mode. 


AUTHOR: Tim Halvorsen, Feb 1980 
i Modified by: 


v03-003 PCG0005 Peter George 22-Nov-1982 
tnt. iNpnonPT te and INT_L_PMPTADDR and remove 


v03-002 PCG0004 Peter George 18-0c t-1982 
: Add VEC_C_PROMPTMAX, INT °C PROMPT, J ENT_V_SPELL. 
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Note that the term ‘’SRO' stands for self-relative offset. 
The actual address is computed by adding the signed contents 
of the field to the address of the structure. 


If the offset is zero, then there is no associated data. 
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Lewer OF STR LEVEL 3 AND BEFORE VEC 
! SIZE IN BYTES OF VECTOR AREA 
! LENGTH OF VECTOR AREA 


! MAXIMUM SIZE OF ANY PROMPT STRING 


Q 
Sooooceeceo - 
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! MAXIMUM SIZE OF ANY PROMPT STRING 


co ce Deve DE DE DEDEDE +2 


! CURRENT STRUCTURE LEVEL 
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= 60; 
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T OF COMMAND TABLES DESCRIBING 
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ION FOR VARIOUS. TABLES. 
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! COMMAND MAY BE ABBREVIATED NON-UNIQUELY 
! COMMAND IS IMMEDIATELY DISPATCHED W/O PARSING 
! COMMAND IS MCR STYLE COMMAND (OUT=IN) 


! COMMAND DOES NOT RETURN VALID STATUS 
! FOREIGN COMMAND - NO PARSING IS DONE 


! COMMAND FLAGS 
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& ONLY EXAMINED BY MCR CLI) 


NGLE CHARACTER 
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“MAXPARM 
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MD 
CMD_B_FLAGS 


DEFINE COMMAND DESCRIPTOR BLOCK 
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LIST EACH ENTRY IS ONE BYTE 
NEGATIVE VALUES INDICATE fHE 


E) IS THE PARAMC ER NUMBER. 
A QUALIFIER AND THE VALUE IS A 
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MAXQUALS 
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! COMMA-SEPARATED LIST OF VALUES ALLOWED 
! ONLY CHECK FIRST FOUR CHARS OF KEYWORD VALUES 


! CONCATENATED VALUES ALLOWED 
! VALUES ARE IMPLICITLY CONCATENATED 


! QUALIFIER CAN APPEAR ON COMMAND VERB 
! QUALIFIER CAN APPEAR ON PARAMETER 


! VALUE DELIMITER IS OPTIONAL (MCR) 


! IGNORE THIS ENTITY BLOCK (MCR) 
! LENGTH OF FIXED LENGTH PORTION 
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Wire 


i 5 
1 
i ; DEFINE IND STRUCTURE FOR CLISINTERFACE ROUTINES 
ns ; : 
i f 1... .SINTDEF 
7 7 MACRO INT_B_TYPE = 0,0,8,0%:; ! TYPE OF REQUEST 
7 i MACRO INTL-TABLES = = & 8 8s ; i ADDRESS OF COMMAND TABLES 
7 MACRO INT_WLENTLEN = 8,0,16,0%; | ! LENGTH OF ENTITY NAME 
* MACRO INT<L-ENTADDR : ~ r bi: ! ADDRESS OF ENTITY NAME 
1 7 
Bim an 1 LENGTH, FEELIN Fy vat 
= 
1 MACRO INT_L_GETVM = ‘3 ° ADDRESS OF Ciescer. vA ROUTINE 
5 : CRO INTILIFREEVN == 20,0, i ADDRESS OF LIBSFREE_VM ROUTINE 
MACRO INT-L-LIST = 24,0, i ADDRESS OF AUXILIARY ARGUMENT LIST 
8 5 LITERAL INT-C“LENGTH = = 8: 
88 3 ‘ LITERAL INTK“LENGTH == 8: 
90 5 MACRO INT_L_LISTLEN = ! LENGTH OF AUXILIARY ARGUMENT LIST 
91 5 MACRO INT-L-PROMPTRIN = ; ! ADDRESS OF PROMPT ROUTINE 
% 589 MACRO INT-L-CONTINRTN = i ADDRESS OF CONTINUATION ROUTINE 
9 3 MACRO INT-W-PMPTLEN = 12,6, Re q i LENGTH OF PROMPT STRING 
34 391 MACRO INTZL-PMPTADDR = is i ADDRESS OF PROMPT STRING 
3 
9 
600 
601 
$08 
604 
i 
608 
609 


( 
5 ' 
398 Define shared message codes. 
P 54 SSHR oFESSAGES (99.155. 
ig 3208 (badvalue,severe), ' Bad value vor keyword 
P 05 (syntax,severe), ' Syntax erro 
P 06 (openin,error), ' Unable to sccees input file 
P 06 (openout severe), ! Unable to eccess output file 
P (readerr,severe), ! Error read ng nput file 
P (closedel error ! Unable to close input file 
5 (Searchtaltrerror), ' Error certing tal hg file 
P (writeerr,error), ! Error writ 
610 , 
ei) CRO 
\§ i, emsg(ident) = 
61 8 EGIN 
614 i If NOT THEN EXTERNAL LITERA * ident 
615 K ZTHEN XTERNAL LITERAL ENARE C msgS. * ident); 2F1 
$18 fa Le msg$_‘, ident) 
61 
els tee REQUIRE ‘LIBS:SYMDEF'; ! Symbol table definitions 
621 i 
6 § : Symbol table management structures 
g é i JDENT v02-000 
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i ceneeeneneeseneeeeeeteeteeneereeeeetertnerserntenenennnnennnnneseerenteete 
:* & 
ie COPYRIGHT (c) 1978, 1980, 1982 BY * 
ie SIGITAL EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ie ALL RIGHTS RESERVED. , 


ie ae fe Wee fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
RMS OF SUCH LICENSE AND WITH TH M4 
Y 


MEW 


} WITH 

Hd INCLUSION OF THe EN ABOVE COPYRIGHT NO NOTICES THIS SOFTWARE OR ANY +. an 
t# COPIES THEREOF od NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 

i: thasremee” TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


te THE oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOU NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:# CORPORA ATION. : 


:® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
i 
iceneeneeeeeeceresennnnenenneeeeeessencceneeeesessnennnnngaesessenessnensens 


UFWN OOOO 


—OOCONOUE WN 


re 

$37 ; 

tH Define symbol table entry 

637 ; (Length is SYMSC_FIXEDLEN + .SYMSB_SYMLEN) 
659 ‘ 


1... SSYMDEF 


OOONAUNE WN $9 OONAOULS WOOO 


MACRO SYMSL_LINK P $08: Le TO NEXT IN CHAIN 
MACRO SyMSC “VALUE 32,08; LUE OF SYMBOL 
°8, 0%; ! LENGTH’ oF A VRBOL NAME 


MACRO SYMSB_SYMLEN 
LITERAL SYMSC_FIXEDLEN 
LITERAL SYMSK—F IXEDLEN 
MACRO SYMST_ “SYMBOL 


aan kk ak tt ak tk td td tt ot 2 ts 2 ts 2 
- 
2 


SESTERSE 


DOC 


! LENGTH OF FIXED PORTION OF ENTRY 
! SYMBOL NAME 


: 
VO4=000 1Efeectgte GH:SB:ED  YIMCHABMS¥TH2 429269 eons. 032,422" crf8 


$8 1! 

3 ' Table of contents 

i ff 1 

; +67 1 FORWARD ROUTINE 

3; 67 1 add_record, ! Add record to Linked List 

; 675 1 record, ! Find record by number 

; O76 1 delefe_list, ! Deallocate entire record List 

; 67 1 symbol ! Add symbol to _— table 

3 678 1 Lookup_symbol, ! Lookup symbol in symbol table 

3 1 ookup_ value, ' Lookup en in oyaset table 

3 1 scan_symbols ; Scan all symbols in symbol table 
; 1 delete_symbol, ! Delete synbo rom pyete table - 
5 1 delete symbols, ' Delete entire eee table 

3 1 allocate, ' Allocate dynamic storage 

: : } deallocate; ! Deallocate dynamic storage 

; 1! 

3 : Storage definitions 

i 886 : 

: 690 1 GLOBAL 

; 691 1 symbol _header: VECTOR (64) ! List of Listheads for symbol tables 
3 4 } INITIALCREP 64 OF (0)); ! Set all Listheads empty 
3 694 1! 

: 695 1 ! External routines 

3 O98 1! 

; 69 1 

; «469 1 eave. ROUTINE 

: § 1 LibSget_vm: ADDRESSING _MODE (GENERAL) ' Allocate dynamic storage 
; 700 1 LibSfree_vm: ADDRESSING_MODE (GENERALS; ! Deallocate dynamic storage 


6 
15-Se0-1984 $3:85:8)  Paeeh GAAS teas ckce shcSsvmaors.032:9°% (135 


e< 
z 


: g 9 GLOBAL ROUTINE add_record (listhead, address, length) = 

: § aa 

. : This routine ads a q‘y n data record to the 

; f f ; end of a given Linked List. 

; 7 704 1! Inputs: 

: 710 7s ii” 

ee 7 1! lListhead = Address of Listhead for List 

cee 7 1! address = Address of data record 

; 4, f ! Length = Length of data record 

: 715 710 1 ! Outputs: 

3 at 711 1! 

; at) 1: routine = status (already signaled) 

3 £8 713 1 !-=- 

3; 7 714 «1 

: 720 715 BEGIN 

: 721 a 

3 £ ¢ 71 LOCAL 

, £ at new_entry: REF VECTOR, ! Address of newly allocated entry 
3 g : ah entry: REF VECTOR; ! Current entry address 

; 7 721 

me: 5 P 07 ¢ RETURN_IF ERROR ! Allocate space; signal any error 
3 ; ? (allocate(.length+8 ,new_entry)); 

wt. 725 new_entry (1) = .length; ! Set length into entry 

3 g 1 y $ CHSAOVE(. Length, .address, new entry (2]); !" Copy data into entry 
; f : f 3 entry = .listhead; ! Start at listhead itself 

; ¢ 5 4 ? etree -entry (0) NEQ 0 ! While not end of List 

; f § entry = .entry (0); ! Link to next in chain 

: 739 ? entry CO) = .new entry; ! set Link of last entry to new one 
3 oe g 5 new_entry C0} = 0; ! and set new ‘end of List 

: 7% 7 RETURN true; 

3; 74 7 : 

3 «746 7 END; 


-TITLE SYMBO 
- IDENT SVOK-000\ 
-PSECT SGLOBAL$,NOEXE ,2 


# 00000 SYMBOL_HEADER:: 
000000008 0 $ * cece 06643 


-EXTRN LIBSGET_VM, LIBSFREE_VM 
-PSECT SCODES,NOWRT,2 


6 
SY bse -1 :52: VAX-11 Bliss<-32 V4.0-74 Pa 
ive i ~$007 1383 $7 :83:9) DISKSVMSMAS ER-EACE Sac SSYMBOLS.032;1 oe 489 
007 .ENTRY ADD_RECORD, Save R2,R3,R4,R5,R6 : 0697 
SE ¢ suBL 2 feo sp : oa 
7E oc AC a ADDL #8, LENGTH, -(SP) : 
0000v CF F ; CALLS @ ALLOCATE ; 
4 E BLBC Atus, 3$ : 
6 E D 14 MOVL NEW ENTRY 6 : 0725 
04 a6 ¢ aC B 1 MOVL_ LENGTH, 4(R6) : 
A MOV LENGTH, @ADDRESS, 8(R6) : 07 
08 Ab 8 2a ¢3 s 
oe i: MOVL LISTHEAD, ENTRY : 07 
p 1$ TSTL NTRY) : 07 
BEQL : 
50 ; p B MOVL NTRY), ENTRY + 0732 
60 56 D0 2s: MOVL 6, (ENTRY) : 07 
66 D4 CLRL —_ (RO) : 0735 
50 1 D0 MOVL #1, RO + 0737 
4 00038 3s: RET : 0739 


; Routine Size: 57 bytes, Routine Base: S$CODES + 0000 


SY 
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> >_> 
~ 
SOM NS 


DONOULS WT — 


S 


> >>>. 


~~ 


record number 


Inputs: 


' 

' 

' 

‘ 

i 

i 

' 

; number = 
' 

; Outputs: 
i 

' 


LOCAL 
entry: 


entry = ..listhead; 
— i FROM 1 TO .number-1 


BEGIN 
IF .entry EQL 0 


RETURN ag 
entry = .entry 63; 


- gentry EQL 0 
RETURN false; 


sretetr “ Bae C2); 
RETURN 


51 04 


F4 5B 


HFoseoctane 25:52:01 vane 


GLOBAL ROUTINE find_record (lListhead, number, retadr) = 


REF VECTOR; 


This cout tne <x a given socery Ay data by 
n any given List. 
returned is the address of the eon 


address 
tself. 


Listhead = Address of Uisthoed of List 
Record number to fin 
retadr = Address of lonquere to receive data address 


routine = true if found, else false 


Address of current entry 
Start at first entry 
Skip first number-1 entries 


If premature end of List, 


not found 
entry in List 


' return entr 
! Skip to nex 


End of List 


!' Return address of data itself 
!' Return successful 


ENTRY 
VL @LISTHEAD, 
CLAL 
BRB % 
A 18%: TSTL NTRY 
BEQL 
MOVL ENTRY), 


ENTRY 
28: AOBLSS NUMBER, I, 1$ 
TSTL ENTRY 


s-32 V 
TER: 


chees OSRCISYMBOLS.832:1 31 


FIND PETORO, Fe fave nothing 


9° 18) 


6 
Pe 13-Se0-1984 i258) Ped BALS PERS Kee sheSsvmeors.032:5 2% «198 
oc gt oe ht a MF Bevke BERT), @RETADR i 0779 
01 06 1F ROVL wi, RO ; 0780 
50 04 0098 38: CLRL = RO ; 0782 
04 000 RET : 


3; Routine Size: 38 bytes, Routine Base: SCODE$ + 0039 


SY 
voor obo 
: , ; } GLOBAL ROUTINE delete list (listlead) = 
; 5 5 1 fe== 
3 1! 
: 1! This tr 
: 5 : } with ven record List. 
; 7 Inputs: 
3 1 Listhead = Address of Listhead 
Oe 7 : ! | Outputs: 
: 0 Le : Laie None 
; 5 79 
; 4 138 BEGIN 
; 808 01 2 LOCAL 
: 13 oS entry: REF VECTOR; 
3 811 Be entry = ..listhead; 
3 18 pare -entry NEQ 0 
: 815 B08 BEGIN 
: 18 LOCAL next_entry; 
3 1 10 next_entry = .entr 02: 
3 18 11 dealTocate(.entr tf, +8, .entry); 
; 1 ih entry = .next_entry; 
3 0 081 é 
3 1 14 
; § 0 15 listhead = 0; 
3 sig 
: 4 oat RETURN true; 
3 5 313 
3 6 081 END; 
52 04 ac ob 80 
ic 3 
53 4 
7E A2 C 
oovov tf f 
, 
04 Et D4 
50 5 


3; Routine Size: 35 bytes, Routine Base: SCODES + OOSF 


ine deallocates all storage associated 


7 
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5° a8 


for List 


Address of current entry 
Start at first entry 
For each entry in List, 


Save pointer to next entry 
Deallocate memory for entry 
! Skip to next entry in List 


Zero Listhead 
Success 


sENTRY DELETE List uteye R2,R3 ; 0783 
MOVL SL ISTHEAD, : 
1$: BEQL ; 
MOVL (ENTRY), NEXT_ENTRY ; et 
th ENTRY ; 0811 
ADDL #8, beh oeat a saite : 
1 CALLS #2, DEALL : 
1 MOVL NEXT. ENTRY _ : 0812 
1A BRB : 
1C 28 CLRL a ESinene : 081 
1f MOVL #i, RO ; 081 
22 RET ; 0819 
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Woe O60 1 =$00-1 38 #7 :35:03 DLSKSVMSMASTERSCACC SRCSSYMBOLS.B32;9°% «183 
GLOBAL ROUTINE add_symbol (table, name_desc, value) = 


Wwn— 


This routine adds a given symbol name and value to 
the symbol table. The symbol table List is sorted 
by symbol name. 

Inputs: 


i 
i 
i 
i 
1 
; 
table = Symbol table index 
' 
i 
i 
' 
' 
: 


uw 


name_deec = Address of ries iy may of symbol name 
value = value to be assigned to the symbol 


Outputs: 
r0 = status (already signaled) 


BEGIN 
name_desc: REF BBLOCK CDSCSK_S_BLNI;! Address of name descriptor 
REF BBLOCK, ! Address of symbol table entry 


location: REF BBLOCK; ! Address of closest symbol name 
eae ramets (.table, .name_desc, location) ! If already in symbl table, 


Do GOA aN LOO NO Ute 


vw 


w 


BEGIN 
: SIGNAL (emsg(dupsym), 1, -Mame_desc):! signal user with bad symbol 
RETURN 1; ! return success 


SSETERE 


5 DO WO AF et OO ONE UO OOO MOAR UA OO OOD OURO OD 


ROP PPPPIPIPIPIPIPIPUIPIPIPIFIPIIPIALAP INI INI a dd td td tt td 

r 
o 
a 

ar 

3 

co 

ie | 


RETURN_IF_ERROR } Bers, a symbol entry 
(allocate(sym$c_fixedlen+.name_desc Cdsc$w_lengthl,entry)); 
entry Csym$l_value) = .value; ! Set value of symbol 
entry Csym$b_symlen) ! Set Length of symbol 
= .name_desc Cdsc$w_length); 
CHSMOVE (.name_desc Cdsc$w_length], ! Copy symbol 


-name_desc (dsc a-Poin er], 
entry Csym$t_symbolJ); 


entry Csym$l_link] } ge into symbol table 
= location Foyast,t inkd; ! in sorted order 

location Csym$l_linkJ = .entry; 

RETURN true; 


Se Se Se Se Ge Ge Fe Ge Se Ge Se Ge Ge Ge Fe Ge Ge FH FF Ss Ge Ge Fe Se Ge SF Se Ge FH Se Ge SESH Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Se Se Gees 
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Woe Ob0 18-5 Seb 188e 17:85:0) NaS ebinGhAS Fens cAce sacs vmeors.032:1°% «189 


0076 ENTRY ADD_ SYMBOL. Save R2,R3,R4,R5,R6 : 0820 
SE 98 C SUBL2 #8, "SP : 
E D PUSHL SP + 0848 
52 08 AS D VL  WNAME_DESC, R2 : 
o at bp cust Ree ; 
0000v cE 3 FB CALLS a3, LOOKUP. SYMBOL : 
C 1 BLBS 3 
04 AE SF 0001 PUSHAB ENTRY + 0857 
3 f 18 MOVZWL (R2), =(SP) ; 
3 c F ADDL 3. isp : 
0000v CF F CALLS #2. ALLOCATE ; 
te iq $ BLBC ATus, : 
5 04 AE OD MOVL ENTRY, + 0859 
04 Ab ¢ & 0 VE VALUE, 4(R6) ; 
8 A A 0 MOV (Ro), 8(R6 > 0861 
09 Ab £2 & b 07 MOVC3 &R ) a4 (R2) 9(R6) > 0865 
66 00 BE dO 000 MOVL OCATION, (R6) 3 0868 
00 BF 6 DO 00 MOVL RS, aLoch CATION > 0869 
1 p 0044 1$: MOVL #1, R : 0871 
4 00047 2$: RET + 0873 


: Routine Size: 72 bytes, Routine Base: SCODE$ + 0082 
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SY 1b-56 -1984 23:52: VAX-11 Bliss-32 V4.0-74 Pp 7 
rite 12-800=1 882 #9 :83:9) WIEKSVMGHASTER LACE SRCTSYMBOLS.B32:10%" (186 
3 3 ie } GLOBAL ROUTINE Lookup symbol (table, name_desc, value) = 
: Bas 2 ee 
3 ag 
; 78 1! This routine looks up a given symbol in fhe gyatot 
$ .% table and returns the value associated with it. 
3 , 1! If the symbol is not found, then the address of the 
: 890 1! last entry preceeding the symbol in collation 
3 4 § } ; sequence is returned instead. 
: 3 1 i Inputs: 
; 894 5 1! 
3; 6895 1! table = Symbol table index (1-n) 
3 38 1} name desc = Descriptor of desired symbol name 
: a4 : : value = Address of longword to receive value if found 
; 83 890 i Outputs: 
: 901 % 1 value = Value of symbol if found 
; 308 93 1! value = Address of previous entry if not found 
; 90 946 1! r0 = status 
: 904 95 1 !<<- 
; 905 1 1 
3 aoe 9 BEGIN 
: 908 3 
3 8 4 name_desc: REF BBLOCK CDSCSK_S_BLNJ;! Address of descriptor 
: 911 é LOCAL 
3 aig st ptr: REF BBLOCK; ! Pointer into List 
: 914 0905 ptr = symbol_header C.table] - SBYTEOFFSET(sym$l_Link); ! Start at Listhead 
3 a value = .ptr; 
: $17 30 WHILE (ptr = .ptr Csym$l_link]) NEQ 0 ! Until end of List 
: 919 CASE CHSCOMPARE(.ptr Ceyn$b_syaten] ptr Csyn$t symbol, 
; 920 name_desc (dsc$w_ engthi, -name_desc Ldsc$a_pointer]) 
3 921 FROM -1 TO i OF SET 
: 9 § boy?" -value = .ptr; ! Table symbol < user symbol 
; 9 03: BEGIN ' Table symbol = user symbol 
: 924 value = .ptr Csym$l_value]; ! Return value of symbol 
; 925 A ag true; ! and exit successful 
: ; 3 C13: RETURN false: ! Table symbol > user symbol 
; 9 : 
3 ° RETURN false; ! return symbol not found 
: 932 END; 
005 ENTRY LOOKUP_SYMBOL, Save R2,R3,R4,R6 ; 0874 
50 046 AC 86 iit MOVL TABLE, RO 3 §8e¢ 


7 
same NEC$ERc19RE GH:5B:0) YMRS TWPLIRHCRE Ye°SPScumaors.0s2c%0%* gt 
= 54 0000" CFs D ROVAL YMBOL HEADERCROJ, PTR : 
55 08 At b MOVL  NAME_DESC, R6 ; ost 
es 1$: seat g- PTR ; 
08 BC 00 09 4 ss $5 3D CnPeee RO. SXbTRS, #0, @NAME_DESC, @4(R6) — 
i i germy 38 
oc at ee p BOVL PTR, @VALUE ; 0913 
0c e 06 AS OD 2s: MOVL 4(PTR), @VALUE : 0915 
01 00 ROVE #i, RO ; 0916 
50 b4 38: CLRL = RO : 0923 
RET : 


3; Routine Size: 60 bytes, Routine Base: SCODE$S + OOCA 


1-50-1944 #7:33:8) = DIScbUMGHASTERSCACE SRCSsYMBOLS.832:1°%" «195 
GLOBAL ROUTINE lookup_value (table, value, retdesc) = 


5 


This coyt one yey P ss dh fs. occurrence of a symbol 
sorte" ng the specif lue and returns a descriptor 
f the symbol seeeelanel M th the value. 


Inputs: 
table = Symbol table index (1-n) 


value = Value to be looked up 
retdesc = Address of qusduore to receive descriptor 


ZERPLERER ERA 


DONOVSWN —O OBNOULS WN OOO 


3 1 

3 1 

3 1 

3 1 

3 1 

; 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1 

3 1 

3 1 

: 1 Outputs: 

; 5 1 i routine = status 

‘ 3 ; ; : ' = =e on 

: 95 BEGIN 

oes: 

; Be : retdesc: § REF VECTOR; ! Address of descriptor 
: 95 g LOCAL 

3 320 ptr: REF BBLOCK; ! Pointer into List 

: sd 3} ptr = .symbol_header (.table); ! Start at first entry 
: 368 38 ts ptr NEQ 0 ! Until end of List 

: 965 2¢ BEGIN 

3 308 2$ i .sPtr Csym$i_value] EQL .value ! If value matches, 

3 968 58 4 BEGIN Return descriptor of name 
: 969 59 4 retdesc A: -ptr_Csym$b_ ohesie 

; 970 4 fetdese = ptr Csym$t Symbol); 

: 48 1 4 hy ! and exit successful 

; st es." ptr i Eo ! If no match, go to next entry 
: 976 RETURN false; ! return symbol not found 
; 335 END; 


0 :s 0 . Pte att ie VALUE, Save nothing 
3 0000" CF 46 ? move YMBOL -HEADERCROJ, PTR 
9 C 1$: BEQL $ 
08 ac 06 =#A 9 CMPL (PTR), VALUE 
11 BNEQ 


RETDESC, RO 


Voee008 these “35719882 97:88:8) «— PNcbumGhaSteRscace sacSsymeors.032:1°%° «136 
oH Be [ SR ASIP 
51 é 28 


TR), PTR 


o 
Oo 

o 
oe 
oO 
ow 
ww 
an 
zao 
ASS 
=27Do<c 
- © 
owv 
Se Se Se Se Ge Ge Se Se 
$333 33 


( 
BRB 1 
R 


; Routine Size: 46 bytes, Routine Base: SCODES + 0106 


SY -11 Bliss-32 V 


X- reg 3} 
SKSVMSMASTER: chee sae SYMBOLS .B832; foee (18) 


Pde ual 


peoseo-t9ge g#:50:01 A 


s 


; 2 } GLOBAL ROUTINE scan_symbols (table, action_routine) = i 
: 1 lace : 
; 1i This routine call ified acti tine f 
3 : s routine calls as ed action routine for ‘ 
: 3 5 } } each symbol in the spec ified symbol table. : 
3 g } Inputs : 
: 9 ii table = Symbol table index (en) ; 
3 1 action_routine = Address of action routine | te, call : 
; } ; h the of lowing argument : 
; ; $s of deseript oF ‘of symbol name : 
; } ; d} value” associated with symbol ; 
; 995 1 | Outputs: 
3 3 } ; The status of the last action routine executed is returned. 
4 N ; 
1909 BEGI i 
3 1008 LOCAL 3 
31 status, ' Catch-all status return bucket : 
3; 1004 desc: VECTOR (2), ‘ Descriptor of symbol name 

: ; 5 ptr: REF BBLOCK; ! Address of current symbol entry 

3 108 ptr = .symbol_header C.table); ! Start at first entry 

3 1009 aoe “I NEQ 0 ! Until end of List, 

: 1011 ! Setup descriptor of 

: 102 1 os "(93 = -ptr_Csym$b_symlen); site hain co Erma 

3 134 1 desc = ptr Csym$t_Symbol); 

3 10146 1 status = (.action_rout ne) (desc, eptr Csym$l_value)); ! Call action routine 

3; 1015 1 If NOT .status THEN EXITLOOP; ' Tf failed, exit unsuccessful 

: : 1$ ! 5 * ptr Csym$l_linkJ; ! Skip to next in chain 

: 101 1 F 

: ' 19 ; 3 RETURN .status; ! return successful 

; 1034 1010 1 END; 


0004 ENTRY scan SYMBOLS, Save R2 3; 0969 
08 SUBL2 #8, SP 3 
04 aC D MOVL TABLE, RO : 0996 
00 O°cr4 “ ROVE YMBOL_HEADERCRO], PTR pine 
6 8 A MOV ZBL (PTR), DESC ; $804 
04 AE 9 A MOVAB  9(R2), DESC+4 ; 106 
A PUSHL 4 (PTRS : 1 
AE PUS DESC ; 
08 Bc 0 CALLS #2, @ACTION_ROUTINE ; 


ot li 4 eRe V4.0-74 
tex 


Foe Ob8 15-se0-1984 #9 :83:8 TERS CACE sheds YMBOLS.832;1 a 
50 € BLBC STATUS, 
es oan ee ae 


; Routine Size: 45 bytes, Routine Base: SCODES + 0134 


eou- ~ 


P <l aut 


yoe-006 1Seseo-t944 #7:23:8)  SScSuwGnaStenccact seeSsymaous.a32:1°% «193 


name_desc: REF BBLOCK CDSCSK_S_BLNJ;! Address of descriptor 


} GLOBAL ROUTINE delete_symbol (table, name_desc) = 

1 ' om oe op 
; 8 yi 

15 ; This routine deletes a given symbol from the symbol 
: 1§ : table. 

1 ! 
: : : Inputs: 
g i table = Symbol table index (1-n) 

: name_desc = Descriptor of symbol name to be deleted 

5 § Outputs: 

: r0 = true if deleted, false if not found 

8 BEGIN 

9 

0 


REF BBLOCK, ! Pointer to previous symbol 
REF BBLOCK; i Pointer into List 


ptr = symbol. header C.table] - SOVIEOP YET T Caves. Link); ! Start at listhead 
prev = .ptr; 


wate (ptr = .ptr Csym$l_link]) NEQ 0 ! Until end of List 
CASE CHSCORPIRE(. atr Coymsb. oo ptr Csym$t zsynbol). 

desc CdscSw engthi, -name_desc Ldsc$a_pointer)) 
FROM -1 TO 1 OF SET 


fod? 


MEW —OVONOUSWN—OO0 


oftty = M ' {apie symbol < user symbol 
i Tepte stvenes = “eer roe 
Ref Csym$l_link] = .ptr syns. Lin 
TURN dealTocate (sym$c_ Weatens cziCoyete. Ak ptr); ! free VM 


LRALRPRAARE ERE EERE RR 


Se Ge Oe Ge Ge Ge Se Se Ge Ge Ge Ss Ge Ge FF Se Se Se Se Se Se Ge Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Se Se Ge Se Ge Se Se ee Gee teesee 
ee a me kek ka ke a a ed td = 8“ = = = = 3 2 2 ot 
oo 


a Bk kB tk et a es et ad 8 sd 8 ot tn et 8 tt tt 4 td 5 tt 


COOooococcoccoo 
SYSRLRLELELEES 
DONOULS WOOO wn 
PROPIA VPOPONIWWIWNI EPPO NIPIPUNUNONIPIPIPUPOPINININY tt tt 
r 
oO 
oO 
Pod 
cour 
en 
7@ 
.< 


1 
Os ? 12: RETURN false; ! Table symbol > user symbol 
: 3g 
53 RETURN false; ! return symbol not found 
6 END; 
0006 -ENTRY DELETE_SYMBOL, Save R2,R3,R4,R6,R7 3 19\t 
9 of AC D VL TABLE, RO : 103 
0000'CF40 D MOVAL SYMBOL_HEADERCRO), PTR 3 
ay a a 1 
rH D 4 1$: MOVL  (PTRY, PTR :1 


08 BC 00 09 =A4 


E 
0000v CF 


; Routine Size: 67 bytes, 


Routine Base: 


08 
04 


SCODES + 0161 


SPAIN oPonopnonong 2 


tet 


MOF > NW MO OVWAWO Woe 


“Sep 
-Sep- 


~ 
on 


ww 
ew 


OSRCISYMBOLS. 832; A ead 133 


:52: VAX-11 Bliss-32 V 

at} $9:25:8) DISKSVMSMAST eReche bol 

ROViBL Sept), e 

CMPCS RO, BtoTRS , #0, @NAME_DESC, @4(R6) 

BGTRU 38 

BGEQU 2S 

MOVL PTR, PREV 

BRB 1$ 

MOVL (PTR), (PREV) 

PUSHL PTR 

MOVZBL 8 (PTR), =(SP) 

ADDL #9, 

CALL #2. DEALLOCATE 

CLRL = RO 

RET 


Be Se Ge Ge Ge Ge Se Se Se Ge Be Se Se Se Se Se 


1042 


1056 


Pll cl 
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. 
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. 
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> 
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. 
° 
© 
9 
o 
a 
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. 
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> 
o 
. 
e 
. 
os 
* 
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. 
e 
. 
e 
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e 
* 
e 
* 
e 
* 
e 
. 
e 
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? 
8 13-Sen-1984 $7:35:0) Ped UWRAASTERs Ate sacs vmeots.032:4°%* cobs 


: 


; } 79 } } GLOBAL ROUTINE delete_symbols (table) = 

:1 > 1 1 <<. 

3; 107 1 1! 

3; 107 1 1! This routine deallocates all symbols in a specified 

3: 107 1 1! symbol table. 

: 19) Ir 4 F teense 

; > inputs: 

3 1 % 1 1! r 

; : : : table = Symbol table index (1-n) 

: 1081 1 1 ' Outputs: 

3 % : 1 1! ° 

3 1 1 1! None 

$ 1 1 1 leoe 

: 1088 1078 2 BEGIN 

; 19 1 

3; 10 1 LOCAL 

; 1080 , ptr: REF BBLOCK; ! Address of current entry 
: 1091 i ptr = .symbol_header [C.table); ! Start at first entry 

: 1098 1 WHILE .ptr NEQ 0 ! Until end of List, 

3 1 1 00 

3; 1095 1 BEGIN 

3% 1 LOCAL eel 6 

3; 109 1 next_entry = -P r Fsyast.\ ink); ! Save pointer to next entry 
; 1098 1 dealTocate(sym$c_fixedlen+.ptr Csym$b_symlen), .ptr); ! Deallocate entry 
3; 1099 1 ptr = ,next_entry; ! Point to next entry in List 
3 1 aet 1 ND; 

3; 1101 1 

: 1108 ; symbol _header (.table) = 0; ! Zero listhead 

:11 1091 2 RETURN true; 

3; 1105 1 § 

: 1106 1 END; 


-ENTRY DELETE_SYMBOLS, Save R2.R3.R4 : 1057 
53 4 MOVL TABLE, Re : 1078 
0000'°CF4 ROVE ~~ ADERCR2], PTR Fees 
54 MOVL PTR), NEXT_ENTRY : 1084 
PUSHL PTR > 1085 
7E 08 MOVZBL 8(PTR), =(SP) ; 
oooov fF eAts as i em : 
55 ROVE NEXTLEN RY, PAR ; 
0o00crss CLRL SYMBOL _HEADERCR2] :1 
50 0 ROVE #1, R : } 


swans Vestortage 23:63:01 YMCHY Sheet VE.0274 ag og 800 lf 


; Routine Size: 45 bytes, Routine Base: SCODES + 01A4 


8 
1$-se0-198 $7:85:8) We cddwRAASPeRscACE sac Ssvmaons.032:1°8° cat 


GLOBAL ROUTINE allocate (bytes, address) = 


SY 


2 


ws 


oSe 


so 


Allocate dynamic storage and return the address. 
If an error occurs, the error is signaled. 


Inputs: 


i 
; 
: 
; 
; 
; bytes = Number of bytes to allocate 

: address = Longword to receive address of storage 
' 

i 

' 

ie 


ot tt 


NAME WN OO OONOVE WN "QO OONOVNS WN 
UME 


Outputs: 
address = Address of storage 


BEGIN 


LOCAL 
status; 


status = LibSget_vm(bytes,.address); 

IF 1 -Status ! if unsuccessful, 
SIGNAL(.status); ! then signal the error 

RETURN .status; ! return with status; 

END; 


Se Se Se Se Fe Ge Se Ge Ge Ge Se Ge Ge Se Se Se Se Ge Sees Ge Fe Se Seeese Se Se Geese 

Ot es as a 8 8 od a 2 a a — — 2 2 a a 2 4 
at wt at ss 4 Wd 4 ds — 4 2 4 bd 8 i td 2 _ _  t 
eb te ss 8 a 8 5 8 a st tb tn 


Sd A me td te a tt 


ROPOPOPURY <0 ot ot to 
PUM OOONAME WIN ODe 


SPRIPINIMIPIFUPIPIPIPIP INR) a ad tt at dt td 


000 .ENTRY ALLOCATE, Save R2 
0 Pu ADDRESS 

CALLS , LIBSGET_VM 

F MO RO, STATUS 

BLBS STATUS, 1$ 


tt 
000000006 53 : 


PUSHL ST 
000000006 99 CALLS #1 LIBSS1GNAL 
STATUS, R 


3; Routine Size: 34 bytes, Routine Base: SCODES + 0101 


8 
Vi 18-Sep-1964 $7:85:0) | YaeebanGhAS fens cAce sacSsvmeons.032:1°% cass 


GLOBAL ROUTINE deallocate (bytes, address) = 


uw 


Dl tek ee a ek le ed 


SSSUSTILERISSSLSAFUN AS SOUS Rone 


; Deallocate dynamic storage. 

an error occurs, the error is signaled. 
§ Inputs: 

i bytes = Number of bytes to deallocate 
5 address = Address of storage to deallocate 

Outputs: 

None 

AL 
status; 


status = LibSfree_vm(bytes,address); 

. a -Status ! if unsuccessful, 
SIGNAL(.status); ! then signal the error 
RETURN .status; ! return with status; 
END; 


i a tk at td td = a td a a = a 8 
a a ed a a ed ad ad od = 8d od od dd td dd od 
tt at at at tt td a = tt 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


vvataltalaleel ot te ot a e oe 
VEWNOOONOUS WOO 


SO Se Se Se Se Ge Be Se Se Ge Ge Ge Oe Oe Ge Ge Se Se Se Se Ge Se Se Se Ge See Se Seeee 
a a a a dd a ed ed 8d od dd dd 


0 0 eENTRY DEALLOCATE, Save R2 3 
8 AC F PUSHAB ADDRESS 8 
4 A Ff PUSHAB BYTES 3 
000000006 F CALLS #2, LIBSFREE_VM 3 
1] fF MOVL R ane 3 
E 1 BLBS = STATUS, : 
20000006 Pe SShth EEE FTAs rou : 
98 06 IE 1$: MOVL STATUS, 86 : 
4 2 RET 3 
: Routine Size: 34 bytes, Routine Base: SCODES + 015% 


sirens iS-seo-t9ee 25:53:01, 


VAX-11 BLi $ose 
SK 


“11 
SVMSMASTER: cee OSRCISYMBOLS.832:1 ;1 


117 11 1 END 
Wig 1183 0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SGLOBALS 836 NOVEC, WRT, ROD ,NOEXE,NOSHR, LCL, REL, pak od Eg batt 1 
SCODES 33 NOVEC,NOWRT, RO, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ccsccess Syabel§ occeceoe Pages Processing 
File Total Loaded Percent Mapped Time 
-$255SDUA28: CSYSLIBIJSTARLET.L32;1 9776 22 0 581 00:01.0 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SYMBOLS/OBJ=0BJ$:SYMBOLS MSRC$:SYMBOLS/UPDATE=(ENHS: SYMBOLS) 
Size: 533 code + 256 data bytes 
Run Time: 219.7 
4972 Time 333 :6 
nes/CPU Min: 
tonenes/tPU-Rin: 2 3 H 


Memory Used: 90 pages 
amen Ba neg Complete. 


0° (28) 


NT CORPORATION — 


War vaxvuee va D PROPRIETARY 
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